-- background: 2659 from stack: in -- bmap block id: 5614 -- flags: 0000 -- background id: 0 -- name: ----- HyperTalk script ----- ------------------------------------------ -- BACKGROUND SCRIPTS CONSISTING OF -- -- USER-DEFINED COMMANDS (UCMD) & IDLER -- ------------------------------------------ -------------------------- -- USER-DEFINED COMMAND -- -------------------------- On REHILITE tapeButtonNo -- PUTTING THE BTN NUMBER INTO A GLOBAL -- WHERE OTHER COMMANDS CAN GET TO IT: global hiTapeButton put tapeButtonNo into hiTapeButton -- SET THE HILITES RIGHT EVEN AFTER A SCROLL: repeat with i = 5 to 16 set hilite of bkgnd btn i to i = tapeButtonNo end repeat End REHILITE ----------------- -- MORE UCMD'S -- ----------------- On HELPER theRes -- VIZ DISSOLVE TO SCREEN MASK: set cursor to 4 lock screen show fld "MaskScreen" unlock screen with visual dissolve fast -- GET TV CURSOR & SHOW HELP PICT: set cursor to 27902 dispPICT theRes,0,0,24,40 get the result -- CATCHES ERRORS set cursor to 4 -- MASK SCREEN & VIZ DISSOLVE TO CONTENTS: lock screen hide fld "MaskScreen" unlock screen with visual dissolve fast -- POST ERRORS IN MSG BOX: if IT contains "ot" then put IT End HELPER ----------------- -- MORE UCMD'S -- ----------------- On FINDING theLine -- CHECK TO SEE IF WE'RE SHOOTIN' BLANKS: if line theLine of field "Window" = empty then exit finDing -- DECLARE GLOBALS: global findIt,hiButton,classmaster -- SETTING UP FOR THE FIRST & SECOND (VIA RETURNKEY) FIND: put line theLine of field "Window" into findIt if char 1 of findIt = "∂" then delete char 1 of findIt -- HERE WE GO A-FINDING: set cursor to 4 lock screen -- FOR A TITLE SEARCH: if hiButton = 30 then if the selectedField = "bkgnd field 16" then go to next card -- PREVENTS RE-FINDING! find whole findIt in field "Title" get the result if IT ≠ empty then unlock screen with visual dissolve fast answer "Couldn't find" && quote & findIT & quote exit finDing end if unlock screen with visual dissolve fast select the foundChunk exit finDing end if -- FOR A STAR SEARCH: if hiButton = 31 then if the selectedField = "bkgnd field 17" then go to next card -- PREVENTS RE-FINDING! find whole findIt in field "Star" get the result if IT ≠ empty then unlock screen with visual dissolve fast answer "Couldn't find" && quote & findIT & quote exit finDing end if unlock screen with visual dissolve fast select the foundChunk exit finDing end if -- FOR A DIRECTOR SEARCH: if hiButton = 32 then if the selectedField = "bkgnd field 18" then go to next card -- PREVENTS RE-FINDING! find whole findIt in field "Director" get the result if IT ≠ empty then -- NOT FOUND! unlock screen with visual dissolve fast answer "Couldn't find" && quote & findIT & quote exit finDing end if unlock screen with visual dissolve fast select the foundChunk exit finDing end if -- FOR A CLASS SEARCH: if hiButton = 33 then if the selectedText contains "Û " then go to next card end if find whole "Û " & findIt in fld findIt -- THE FIELD NAME IS IN THE CLASS BEING FOUND get the result if IT ≠ empty then -- NOT FOUND! unlock screen with visual dissolve fast answer "Couldn't find" && quote & findIT & quote exit finDing end if unlock screen with visual dissolve fast select the foundChunk exit finDing end if -- JUST IN CASE AN INDEX WAS NOT SELECTED: if hiButton = empty then unlock screen answer "Click an index tab first!" end if End FINDING ----------------- -- MORE UCMD'S -- ----------------- On CLASSIT theNo -- CONDITION ONE WHERE THE CLASS IS AN "X" BOX: if first char of bkgnd field theNo = "Û" then put "Ω" into char 1 of bkgnd field theNo exit classIt end if -- CONDITION TWO WHERE THE CLASS IS A NON "X" BOX: if first char of bkgnd field theNo = "Ω" then put "Û" into char 1 of bkgnd field theNo end if End CLASSIT -- part 11 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=346 top=39 right=268 bottom=486 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 19 -- part name: Window -- part 34 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=322 top=288 right=301 bottom=333 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Up ----- HyperTalk script ----- -------------------- -- UP ARROW STUFF -- -------------------- On MOUSESTILLDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpUpDown exit mouseStillDown end if global lineNo,master,hiTapeButton,getOutaHere put 1 into getOutaHere -- DEACTIVATES MOUSEUP! -- IF YOU'RE ALREADY AT THE TOP, WHY BOTHER? if first line of field "Window" = first line of master then exit mouseStillDown -- THIS'LL MOVE A SCREEN OF THE INDEX: if the commandKey is down or the shiftKey is down then if lineNo ≤ 12 then put 13 into lineNo subtract 12 from lineNo lock screen put line lineNo to lineNo + 11 of master into field "Window" unlock screen with visual dissolve fast exit mouseStillDown end if -- UNDER ORDINARY CIRCUMSTANCE, SINGLE SCROLLING subtract 1 from lineNo put line lineNo to (lineNo + 11) of master into field "Window" End MOUSESTILLDOWN On MOUSEUP -- GET HELP IF OPTIONKEY IS DOWN: if the optionKey is down and the commandKey is not down then helper helpUpDown exit mouseUp end if global lineNo,master,hiTapeButton,getOutaHere -- IF MOUSESTILLDOWN WAS ACTIVATED, GET OUT: if getOutaHere = 1 then put empty into getOutaHere exit mouseUp end if -- IF YOU'RE AT TOP OF LIST, GET OUT: if first line of field "Window" = first line of master then exit mouseUp -- GO TO THE TOP FAST: if the shiftkey is down and the commandKey is down then if first line of field "Window" = first line of Master then exit mouseUp put 1 into lineNo lock screen put line 1 to 12 of Master into field "Window" unlock screen with visual dissolve fast exit mouseUp end if -- FOR MOVING A SCREEN FULLA INDEX AT ONCE: if the commandKey is down or the shiftKey is down then if lineNo ≤ 12 then put 13 into lineNo subtract 12 from lineNo lock screen put line lineNo to lineNo + 11 of master into field "Window" unlock screen with visual dissolve fast exit mouseUp end if UNDER ORDINARY CIRCUMSTANCES, LINE-BY-LINE: if lineNo > 1 then subtract 1 from lineNo put line lineNo to (lineNo + 11) of master into field "Window" End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 35 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=322 top=306 right=319 bottom=333 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Down ----- HyperTalk script ----- -------------------------------- -- DOWN ARROW STUFF LIKE UP -- -- SEE COMMENTARY IN UP ARROW -- -------------------------------- On MOUSESTILLDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpUpDown exit mouseStillDown end if global lineNo,master,getOutaHere put 1 into getOutaHere if last line of field window = last line of master then exit mouseStillDown if the commandKey is down or the shiftKey is down then add 12 to lineNo if lineNo + 11 > the number of lines in master then put the number of lines in master - 11 into lineNo lock screen put line lineNo to lineNo + 11 of master into field "Window" unlock screen with visual dissolve fast exit mouseStillDown end if add 1 to lineNo put line lineNo to (lineNo + 11) of master into field "Window" End MOUSESTILLDOWN On MOUSEUP -- GET HELP IF OPTIONKEY IS DOWN: if the optionKey is down and the commandKey is not down then helper helpUpDown exit mouseUp end if global lineNo,master,getOutaHere if getOutaHere = 1 then put empty into getOutaHere exit mouseUp end if if last line of field window = last line of master then exit mouseUp if the commandKey is down and the shiftKey is down then if last line of field window = last line of master then exit mouseUp put the number of lines in Master - 11 into lineNo lock screen put line (the number of lines in Master - 11) to (the number of lines in Master) of Master into field "Window" unlock screen with visual dissolve fast exit mouseUp end if if the commandKey is down or the shiftKey is down then add 12 to lineNo if lineNo + 11 > the number of lines in master then put the number of lines in master - 11 into lineNo lock screen put line lineNo to lineNo + 11 of master into field "Window" unlock screen with visual dissolve fast exit mouseUp end if add 1 to lineNo put line lineNo to (lineNo + 11) of master into field "Window" End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- --------------------------------------------- -- "BEEN DOWN SO LONG LOOKS LIKE UP TO ME" -- -- FROM THE BOOK BY RICHARD FARINA -- --------------------------------------------- -- part 69 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=24 top=200 right=212 bottom=80 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Action ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 70 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=24 top=212 right=224 bottom=80 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Arts ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 71 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=24 top=224 right=236 bottom=80 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Comedy ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 72 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=92 top=200 right=212 bottom=152 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Drama ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 73 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=92 top=212 right=224 bottom=152 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Fantasy ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 74 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=92 top=224 right=236 bottom=152 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Horror ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 75 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=160 top=200 right=212 bottom=222 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Kids ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 76 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=160 top=212 right=224 bottom=222 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Music ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 77 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=227 top=212 right=224 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Thriller ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 78 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=160 top=224 right=236 bottom=222 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Romance ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 79 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=227 top=200 right=212 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Special ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 80 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=227 top=224 right=236 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Western ----- HyperTalk script ----- -------------------------------- -- CLASSIFICATION FIELD STUFF -- -------------------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClass exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 81 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=493 top=288 right=301 bottom=504 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: UpAll ----- HyperTalk script ----- ------------------ -- UP ALL STUFF -- ------------------ On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpAllUpDown exit mouseUp end if global lineNo,master,lineNo -- IF YOU'RE ALREADY AT THE TOP, EXIT: if first line of field "Window" = first line of Master then exit mouseUp -- PUT FIRST 12 LINES IN INDEX WINDOW lock screen put line 1 to 12 of Master into field "Window" put 1 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 82 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=493 top=306 right=319 bottom=504 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: DownAll ----- HyperTalk script ----- --------------------------------------- -- DOWN ALL ARROW STUFF LIKE UP ALL -- -- SEE COMMENTARY IN UP ALL ARROW -- --------------------------------------- On MouseUp -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpAllUpDown exit mouseUp end if global lineNo,master,lineNo if last line of field window = last line of master then exit mouseUp lock screen put line (the number of lines in Master - 11) to (the number of lines in Master) of Master into field "Window" put the number of lines in master - 11 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 83 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=203 top=90 right=102 bottom=249 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Color ----- HyperTalk script ----- ----------------------- -- COLOR FIELD STUFF -- ----------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClrOwn exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 84 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=249 top=90 right=102 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Own ----- HyperTalk script ----- --------------------- -- OWN FIELD STUFF -- --------------------- On MOUSEDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpClrOwn exit MOUSEDOWN end if -- MAKE FIRST CHAR INTO A CHECK BOX: if the userlevel ≠ 1 then classIt the number of me End MOUSEDOWN ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 91 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=61 top=41 right=56 bottom=204 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Title ----- HyperTalk script ----- --------------------------------------- -- TITLE FIELD OPEN/CLOSEFIELD STUFF -- --------------------------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpTitStrDir exit OPENFIELD end if -- STORES OLD CONTENTS FOR LATER: global theFirstTitle,fieldIsOpen put empty into theFirstTitle put line 1 of me into theFirstTitle put number of me into fieldIsOpen -- NOW CLOSEFIELD GETS SENT ON ANY CLICK! -- THIS WILL FORCE AN INDEX ADJUSTMENT! End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- On CLOSEFIELD global hiButton,TitleMaster,theFirstTitle,lineNo global newTitle,fieldIsOpen,labelMaster,master put empty into fieldIsOpen -- PUT RETURN AT END OF LINE SO SELECT LOOKS NICE: -- (HAS TO BE DONE SINCE FIELD MAKES RETURN = TAB) if last char of line 1 of me ≠ return then put return after line 1 of me end if -- COMPARES OLD TITLE AND NEW: put empty into theNewTitle put line 1 of me into theNewTitle if theFirstTitle = theNewTitle then exit closeField -- ADJUSTING THE INDEX: set cursor to 4 put "Adjusting your title index..." lock screen set lockmessages to true -- GET THE HIGHEST NUMBER OF ITEMS: if the number of items in theFirstTitle > the number of items in theNewTitle then put the number of items in theFirstTitle into noItems else put the number of items in theNewTitle into noItems end if -- THE OLD TITLE GETS DONE FIRST: repeat with i = 1 to noItems -- CHECK FOR EMPTY: if item i of theFirstTitle ≠ empty then put item i of theFirstTitle into firstTitle -- FILTER EXTRANEOUS CHARS OUT OF TITLE ITEM: if last char of firstTitle = return then delete last char of firstTitle end if if first char of firstTitle = space then delete first char of firstTitle end if -- FIND OUT IF THIS TITLE EXISTS ELSEWHERE: put the number of this card into cardNo find whole firstTitle in fld number of me if the number of this card = cardNo then -- GET IT READY FOR THE INDEX ADJUSTMENT: if first char of firstTitle ≠ "∂" then put "∂" before firstTitle end if put the number of lines in char 1 to offset(firstTitle,TitleMaster) of TitleMaster into firstLine -- DELETE IF NECESSARIO: if line firstLine of TitleMaster = firstTitle then delete line firstLine of TitleMaster end if else -- THIS IS WHEN THE TITLE EXISTS ELSEWHERE: go to card cardNo -- BACK TO ORIG CARD if first char of firstTitle ≠ "∂" then put "∂" before firstTitle end if end if end if -- CHECK NEW TITLE FOR EMPTIES: if item i of theNewTitle ≠ empty then put item i of theNewTitle into newTitle -- FILTER EXTRANEOUS CHARS OUT OF TITLE ITEM: if first char of newTitle = space then delete first char of newTitle end if if first char of newTitle ≠ "∂" then put "∂" before newTitle end if if last char of newTitle = return then delete last char of newTitle end if -- TELLS YOU WHERE IN INDEX IT IS: put the number of lines in char 1 to offset(newTitle,TitleMaster) of TitleMaster into newLine -- TRY TO PUT NEW TITLE INTO THE TITLE INDEX: if line newLine of TitleMaster = newTitle then else put newTitle & return before TitleMaster put sortLines(TitleMaster) into TitleMaster end if end if end repeat -- REFRESHES THE INDEX WINDOW & LABEL: if hiButton = 30 then put TitleMaster into master put line lineNo to lineNo + 11 of Master into fld "Window" end if -- DON'T FORGET THE VCR TAPE LABEL: put labelMaster into fld "Label" unlock screen with visual dissolve fast set lockmessages to false hide msg End CLOSEFIELD -- part 92 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=61 top=55 right=70 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Star ----- HyperTalk script ----- --------------------------------------- -- STAR FIELD OPEN/CLOSE STUFF -- -- SEE TITLE FIELD FOR MORE COMMENTS -- --------------------------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpTitStrDir exit openField end if global theFirstStar,fieldIsOpen put empty into theFirstStar put line 1 of me into theFirstStar put number of me into fieldIsOpen End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- On CLOSEFIELD global hiButton,StarMaster,theFirstStar,lineNo,master global newStar,fieldIsOpen,labelMaster put empty into fieldIsOpen if last char of line 1 of me ≠ return then put return after line 1 of me end if put empty into theNewStar put line 1 of me into theNewStar if theFirstStar = theNewStar then exit closeField set cursor to 4 put "Adjusting your star index..." lock screen set lockmessages to true if the number of items in theFirstStar > the number of items in theNewStar then put the number of items in theFirstStar into noItems else put the number of items in theNewStar into noItems end if repeat with i = 1 to noItems if item i of theFirstStar ≠ empty then put item i of theFirstStar into firstStar if last char of firstStar = return then delete last char of firstStar end if if first char of firstStar = space then delete first char of firstStar end if put the number of this card into cardNo find whole firstStar in fld number of me if the number of this card = cardNo then if first char of firstStar ≠ "∂" then put "∂" before firstStar end if put the number of lines in char 1 to offset(firstStar,StarMaster) of StarMaster into firstLine if line firstLine of starMaster = firstStar then delete line firstLine of StarMaster end if else go to card cardNo if first char of firstStar ≠ "∂" then put "∂" before firstStar end if end if end if if item i of theNewStar ≠ empty then put item i of theNewStar into newStar if first char of newStar = space then delete first char of newStar end if if first char of newStar ≠ "∂" then put "∂" before newStar end if if last char of newStar = return then delete last char of newStar end if put the number of lines in char 1 to offset(newStar,StarMaster) of StarMaster into newLine if line newLine of starMaster = newStar then else put newStar & return before StarMaster put sortLines(StarMaster) into StarMaster end if end if end repeat if hiButton = 31 then put StarMaster into master put line lineNo to lineNo + 11 of Master into fld "Window" end if put labelMaster into fld "Label" unlock screen with visual dissolve fast set lockmessages to false hide msg End CLOSEFIELD -- part 93 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=81 top=69 right=84 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Director ----- HyperTalk script ----- --------------------------------------- -- DIRECTOR FIELD OPEN/CLOSE STUFF -- -- SEE TITLE FIELD FOR MORE COMMENTS -- --------------------------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpTitStrDir exit OPENFIELD end if global theFirstDirector,fieldIsOpen put empty into theFirstDirector put line 1 of me into theFirstDirector put number of me into fieldIsOpen End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- On CLOSEFIELD global hiButton,DirectorMaster,theFirstDirector,lineNo,master global newDirector,fieldIsOpen put empty into fieldIsOpen if last char of line 1 of me ≠ return then put return after line 1 of me end if put empty into theNewDirector put line 1 of me into theNewDirector if theFirstDirector = theNewDirector then exit closeField set cursor to 4 put "Adjusting your director index..." lock screen set lockmessages to true if the number of items in theFirstDirector > the number of items in theNewDirector then put the number of items in theFirstDirector into noItems else put the number of items in theNewDirector into noItems end if repeat with i = 1 to noItems if item i of theFirstDirector ≠ empty then put item i of theFirstDirector into firstDirector if last char of firstDirector = return then delete last char of firstDirector end if if first char of firstDirector = space then delete first char of firstDirector end if put the number of this card into cardNo find whole firstDirector in fld number of me if the number of this card = cardNo then if first char of firstDirector ≠ "∂" then put "∂" before firstDirector end if put the number of lines in char 1 to offset(firstDirector,DirectorMaster) of DirectorMaster into firstLine if line firstLine of DirectorMaster = firstDirector then delete line firstLine of DirectorMaster end if else go to card cardNo if first char of firstDirector ≠ "∂" then put "∂" before firstDirector end if end if end if if item i of theNewDirector ≠ empty then put item i of theNewDirector into newDirector if first char of newDirector = space then delete first char of newDirector end if if first char of newDirector ≠ "∂" then put "∂" before newDirector end if if last char of newDirector = return then delete last char of newDirector end if put the number of lines in char 1 to offset(newDirector,DirectorMaster) of DirectorMaster into newLine if line newLine of DirectorMaster = newDirector then else put newDirector & return before DirectorMaster put sortLines(DirectorMaster) into DirectorMaster end if end if end repeat if hiButton = 32 then put DirectorMaster into master put line lineNo to lineNo + 11 of Master into fld "Window" end if put labelMaster into fld "Label" unlock screen with visual dissolve fast set lockmessages to false hide msg End CLOSEFIELD -- part 94 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=59 top=88 right=100 bottom=100 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Rating ----- HyperTalk script ----- ------------------------ -- RATING FIELD STUFF -- ------------------------ On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRatMinYrs exit openField end if End OPENFIELD ----------------------------------- -- UCMD'S LINE 'HELPER' IN BKGND -- ----------------------------------- -- part 95 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=129 top=88 right=100 bottom=156 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Minutes ----- HyperTalk script ----- ------------------------- -- MINUTES FIELD STUFF -- ------------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRatMinYrs exit OPENFIELD end if End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 96 (field) -- low flags: 02 -- high flags: 0000 -- rect: left=172 top=88 right=100 bottom=205 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Year ----- HyperTalk script ----- ---------------------- -- YEAR FIELD STUFF -- ---------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRatMinYrs exit OPENFIELD end if End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 97 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=24 top=108 right=175 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Description ----- HyperTalk script ----- ----------------------------- -- DESCRIPTION FIELD STUFF -- ----------------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpDes exit OPENFIELD end if End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 113 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=248 top=277 right=289 bottom=305 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Date -- part 132 (button) -- low flags: 00 -- high flags: 4000 -- rect: left=347 top=44 right=58 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 133 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=63 right=77 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 134 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=82 right=96 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 135 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=101 right=115 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 136 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=120 right=134 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 137 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=139 right=153 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 138 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=158 right=172 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 139 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=177 right=191 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 140 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=196 right=210 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 141 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=215 right=229 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 142 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=234 right=248 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 143 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=253 right=267 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- -- INDEX BTNS: On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexItems exit mouseUp end if -- CALLING ON THE HILITE/DEHILITE UCMD: reHiLite the number of me -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER: finDing the number of me - 4 -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT! End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 144 (button) -- low flags: 80 -- high flags: 2000 -- rect: left=176 top=234 right=250 bottom=311 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Hidden ----- HyperTalk script ----- on mouseUp global findTitle,hiButton put line (number of me - 4) of field "Window" into findTitle set lockscreen to true find findTitle in field "Title" set hilite of bkgnd btn hiButton to true set lockscreen to false end mouseUp -- part 149 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=12 top=309 right=322 bottom=42 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- ----------------------- -- HOME BUTTON STUFF -- ----------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpHome exit mouseUp end if --DECLARE GLOBALS: global InstallBtn -- CHECK TO SEE IF VS BUTTON SHOULD BE INSTALLED: if the shiftkey is down or InstallBtn ≠ 1 then answer "Install VideoStak buttons on Home Card?" with "No" or "Yes" or "Cancel" if IT = "Cancel" then exit mouseUp if IT = "No" then set cursor to 4 visual dissolve fast go Home end if -- THESE GUYS INSTALL A VS BUTTON ON THE HOME CARD: if IT = "Yes" then set cursor to 4 put "This is a delicate operation. Takes several seconds." put 1 into InstallBtn put the short name of this stack into nuBtnName lock screen set visible of bkgnd btn id 159 to true set cursor to 4 set userLevel to 5 set the name of bkgnd btn id 159 to nuBtnName set cursor to 4 choose button tool click at loc of bkgnd btn id 159 domenu "Copy Button" set visible of bkgnd btn id 159 to false unlock screen set cursor to 4 go home domenu "Paste Button" choose browse tool exit mouseUp end if else -- HERE'S WHAT HAPPENS IF YOU JUST WANTED HOME: set cursor to 4 go home end if End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 150 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=47 top=309 right=322 bottom=76 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: First ----- HyperTalk script ----- ---------------------------- -- SHOW SORT BUTTON STUFF -- ---------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpSort exit mouseUp end if global sortBy,selectAgain -- SHOW THE SORT STUFF: lock screen show bkgnd field "Sort" show bkgnd btn "Sort" show bkgnd btn "Cancel" unlock screen with visual dissolve fast -- THIS SELECTS THE TITLE (DEFAULT) SORTBY OPTION: select char 2 to 8 of line 1 of bg fld "sort" put the selectedText into sortBy put the selectedChunk into selectAgain exit mouseUp End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 151 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=81 top=309 right=322 bottom=111 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Prev ----- HyperTalk script ----- ----------------------- -- PREV BUTTON STUFF -- ----------------------- On MOUSESTILLDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRLArrow exit mouseStillDown end if global getOutaHere -- TELLS HC TO IGNORE MOUSEUP if the commandKey is down or the shiftKey is down then go card 3 exit to HyperCard else put 1 into getOutaHere if the number of this card = 3 then go to last card else go prev end if end if End MOUSESTILLDOWN On MOUSEUP -- GET HELP IF OPTIONKEY IS DOWN: if the optionKey is down and the commandKey is not down then helper helpRLArrow exit mouseUp end if global getOutaHere -- IF MOUSESTILL DOWN WAS RUNNING GET OUT: if getOutaHere = 1 then put empty into getOutaHere exit mouseUp end if -- GOES TO FIRST DATA CARD: if the commandKey is down or the shiftKey is down then go card 3 exit mouseUp end if -- GOES TO LAST CARD IF THIS IS FIRST DATA CARD: if the number of this card = 3 then go last exit mouseUp end if -- NORMAL PREV WITH SCREEN LOCKED FOR PAINLESS UPDATE OF DATA: go prev End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 152 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=114 top=309 right=322 bottom=145 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Next ----- HyperTalk script ----- ------------------------------------------ -- NEXT BUTTON STUFF. SEE MORE COMMENTS -- -- IN PREV BUTTON (TO YOUR LEFT) -- ------------------------------------------ On MOUSESTILLDOWN -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRLArrow exit mouseStillDown end if -- TAKES YOU TO THE LAST CARD: if the commandKey is down or the shiftKey is down then go to card the number of cards exit to HyperCard end if -- ONE CARD AT A TIME & GET OUT WARNING -- FOR THE MOUSEUP HANDLER global getOutaHere put "1" into getOutaHere if the number of this card = the number of cards then go to card 3 -- SKIPS CARD 1 & 2 else go next end if End MOUSESTILLDOWN On MOUSEUP -- GET HELP IF OPTIONKEY IS DOWN: if the optionKey is down and the commandKey is not down then helper helpRLArrow exit mouseUp end if -- IF MOUSESTILLDOWN WAS USED THEN GET OUT: global getOutaHere if getOutaHere = 1 then put empty into getOutaHere exit mouseUp end if -- THE LAST CARD COMMAND: if the commandKey is down or the shiftKey is down then go last exit mouseUp end if -- IF ON THE LAST CARD, DON'T GO TO CARD 1 OR 2: if the number of this card = the number of cards then go card 3 exit mouseUp end if -- UNDER ORDINARY CIRCUMSTANCES: go next End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 153 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=181 top=309 right=322 bottom=205 -- title width / last selected line: 0 -- icon id / first selected line: 13262 / 13262 -- text alignment: 1 -- font id: 204 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Edit OFF ----- HyperTalk script ----- ------------------------------------- -- LOCK BUTTON STUFF (EDIT BUTTON) -- ------------------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpLock exit mouseUp end if -- GLOBALS, BASICS & QUICK EXIT: global firstTitle,firstStar,firstDirector play harpsichord get short name of me -- UNLOCK MODE: if IT is "Edit ON" then lock screen set the icon of me to 13262 unlock screen if the shiftKey is down then show Menubar set name of me to "Edit OFF" set powerKeys to false set userlevel to 5 exit mouseUp end if -- LOCK MODE: if IT is "Edit OFF" then lock screen set the icon of me to 1413 unlock screen if the shiftKey is down then hide Menubar set name of me to "Edit ON" set powerKeys to true set userlevel to 1 exit mouseUp end if End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 154 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=13 top=279 right=286 bottom=64 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Label ----- HyperTalk script ----- ------------------------ -- LABEL BUTTON STUFF -- ------------------------ On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpLabelBtn exit mouseUp end if -- BASICS: global labelMaster set cursor to 4 -- CLEAR THE LABEL OUT WITH COMMANDKEY/SHIFTKEY: if the commandKey is down or the shiftKey is down then lock screen put empty into field "Label" put empty into labelMaster unlock screen with visual dissolve fast exit mouseUp end if -- PUT THE NEW LABEL IN WITH THE OLD ONES lock screen put line 1 of fld "Title" into tempTitle if last char of tempTitle = return then delete last char of tempTitle put tempTitle & "--" & field "Minutes" && "min." & return into temp put temp before labelMaster put line 1 to 3 of labelMaster into field "Label" put field "Label" into labelMaster unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 155 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=238 top=309 right=322 bottom=269 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Game ----- HyperTalk script ----- ----------------------- -- GAME BUTTON STUFF -- ----------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpGame exit mouseUp end if global lastNo -- PICKING CATEGORY: answer "Choose a category: Stars or Directors." with "Stars" or "Directors" or "Cancel" -- STAR LOOP: if IT is "Stars" then set cursor to 4 -- MAY NEED TO KEEP CHOOSING RANDOM CARD: repeat -- RANDOM CARD CHOOSEN AND DATA EXTRACTED: repeat put random(the number of cards) into cardNo if cardNo > 2 and cardNo ≠ lastNo then exit repeat end repeat -- DON'T WANT SAME CARD TWICE! put cardNo into LastNo set lockscreen to true push card go to card cardNo -- TOO MANY STAR TREK ADVENTURES: put field "Title" into tempTitle if tempTitle contains "Star Trek" then pop card unlock screen next repeat end if -- FILTER OUT EXTRANEOUS DATA: if last char of tempTitle = return then delete last char of temptitle -- IF BLANK OR RETURN ONLY, GET OUT: put field "Star" into tempStar if tempStar = empty or tempstar = return then pop card unlock screen next repeat end if -- ASSUMING DATA'S THERE, DELETE RETURN: if last char of tempStar = return then delete last char of tempStar -- $64,000 QUESTION: pop card unlock screen repeat -- KEEPS ASKING IF YOU'RE WRONG! ask "Who starred in" && tempTitle & "?" go to this card -- FORCES SCREEN REFRESH! push card -- GOTTA KNOW WHERE TO COME BACK! -- IF YOU GIVE UP THIS HAPPENS: if IT is empty then lock screen go to card cardNo find whole tempStar in field "Star" unlock screen with visual dissolve fast select the foundChunk hide msg exit mouseUp end if -- ANY ANSWER AT ALL GETS THIS: put "Checking with our judges..." put IT into findAnswer -- NOW FOR A THOROUGH COMPARISON OF -- YOUR GUESS AND THE FIELD CONTENTS: if tempStar contains findAnswer then lock screen go to card cardNo put the number of items in fld "Star" into noItems repeat with i = 1 to noItems put item i of fld "Star" into foundAnswer if last char of foundAnswer = return then delete last char of foundAnswer if first char of foundAnswer = space then delete first char of foundAnswer -- IF IT PASSES THE MUSTER, CALAMITY ENSUES: if findAnswer = foundAnswer then put "You've gotten it right!!!" play PWee find whole foundAnswer in fld "Star" unlock screen with visual dissolve fast hide msg select the foundChunk hide msg exit mouseUp end if end repeat -- FOR AN ALMOST RIGHT ANSWER: put "Sor-r-ry..." wait for 20 ticks pop card unlock screen hide msg next repeat end if -- FOR A COMPLETELY WRONG ANSWER: -- (WASN'T EVEN CONTAINED IN FLD!) put "Sor-r-ry..." wait for 20 ticks pop card unlock screen hide msg next repeat end repeat end repeat end if -- DIRECTORS SAME AS STAR LOOP: -- (SEE ABOVE COMMENTARY) if IT is "Directors" then set cursor to 4 repeat repeat put random(the number of cards) into cardNo if cardNo > 2 and cardNo ≠ lastNo then exit repeat end repeat put cardNo into LastNo set lockscreen to true push card go to card cardNo put field "Title" into tempTitle if tempTitle contains "Star Trek" then pop card unlock screen next repeat end if if last char of tempTitle = return then delete last char of temptitle put field "Director" into tempDirector if tempDirector = empty or tempDirector = return then pop card unlock screen next repeat end if if last char of tempDirector = return then delete last char of tempDirector pop card unlock screen repeat ask "Who directed" && tempTitle & "?" go to this card push card if IT is empty then lock screen go to card cardNo find whole tempDirector in field "Director" unlock screen with visual dissolve fast select the foundChunk exit mouseUp end if put "Checking with our judges..." wait 1 secs put IT into findAnswer if tempDirector contains findAnswer then lock screen go to card cardNo put the number of items in fld "Director" into noItems repeat with i = 1 to noItems put item i of fld "Director" into foundAnswer if last char of foundAnswer = return then delete last char of foundAnswer if first char of foundAnswer = space then delete first char of foundAnswer if findAnswer = foundAnswer then put "You've gotten it right!!!" play PWee find whole foundAnswer in fld "Director" unlock screen with visual dissolve fast hide msg select the foundChunk hide msg exit mouseUp end if end repeat put "Sor-r-ry..." wait for 20 ticks pop card unlock screen hide msg next repeat end if put "Sor-r-ry..." wait for 20 ticks pop card unlock screen hide msg hide msg next repeat end repeat end repeat end if End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 158 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=274 top=309 right=322 bottom=303 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Help ----- HyperTalk script ----- -- HELP STUFF: -- INTRO TO THE IN-LINE HELP SYSTEM On MOUSEUP -- DISSOLVE TV DATA TO WHITE: set cursor to 4 lock screen show fld "MaskScreen" unlock screen with visual dissolve fast -- CHANGE CURSOR & DISPLAY HELP PICT: set cursor to 27902 dispPICT "HelpIntro",0,0,24,40 -- DISSOLVE BACK TO TV DATA get the result -- CATCHES ERRORS set cursor to 4 lock screen hide fld "MaskScreen" unlock screen with visual dissolve fast -- POST ERRORS IN MSG BOX: if IT contains "ot" then put IT end MOUSEUP -- part 159 (button) -- low flags: 80 -- high flags: 2000 -- rect: left=29 top=23 right=67 bottom=82 -- title width / last selected line: 0 -- icon id / first selected line: 6732 / 6732 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: VideoStak × Begin Here ----- HyperTalk script ----- on mouseUp set cursor to 4 visual dissolve fast go to the short name of me end mouseUp -- part 167 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=24 top=247 right=263 bottom=71 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Install1 -- part 168 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=96 top=181 right=193 bottom=150 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 10 -- part name: Record Date ----- HyperTalk script ----- ----------------------- -- RECORD DATE STUFF -- ----------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRecDate exit OPENFIELD end if global fieldIsOpen put "1" into fieldIsOpen End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- On CLOSEFIELD global fieldIsOpen put empty into fieldIsOpen if bkgnd field "Record Date" is not empty then put "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" into MONTHES put bkgnd field "Record Date" into OLDATE put char 1 to 3 of bkgnd field "Record Date" into BEGINDATE if BEGINDATE is in MONTHES then repeat with i = 1 to the number of items in MONTHES if BEGINDATE = item i of MONTHES then put i & "/" into NUDATE get word 2 of OLDATE if last char of IT = "," then delete last char of IT put IT after NUDATE put "/" after NUDATE put char (number of chars in OLDATE - 1) of OLDATE after NUDATE put last char of OLDATE after NUDATE put NUDATE into bkgnd field "Record Date" end if end repeat end if if char 1 of OLDATE = 8 or char 1 of OLDATE = 9 then if the number of chars in OLDATE = 6 then put char 1 of OLDATE into YY put char 2 of OLDATE after YY put char 3 of OLDATE into MM put char 4 of OLDATE after MM put char 5 of OLDATE into DD put char 6 of OLDATE after DD put MM & "/" & DD & "/" & YY into bkgnd field "Record Date" end if end if if char 1 of OLDATE is in 1234567890 and (OLDATE contains "-" or OLDATE contains space) then if char 1 to 3 of word 2 of OLDATE is not in MONTHES then repeat with i = 1 to the number of chars in OLDATE if char i of OLDATE is in 1234567890 then put char i of OLDATE after NUDATE if (char i of OLDATE is "-" or char i of OLDATE is " ") then put "/" after NUDATE end repeat put NUDATE into bkgnd field "Record Date" end if end if if char 1 of OLDATE is in 1234567890 and char 1 to 3 of word 2 of OLDATE is in MONTHES then repeat with i = 1 to the number of items in MONTHES if char 1 to 3 of word 2 of OLDATE = item i of MONTHES then put i into NUDATE end if end repeat put "/" after NUDATE put word 1 of OLDATE after NUDATE put "/" after NUDATE put char (the number of chars in OLDATE - 1) of OLDATE after NUDATE put last char of OLDATE after NUDATE put NUDATE into bkgnd field "Record Date" end if end if End CLOSEFIELD -- part 169 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=178 top=181 right=193 bottom=238 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 10 -- part name: Record Time ----- HyperTalk script ----- -------------------- -- RECORDING TIME -- -------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRecDate exit OPENFIELD end if End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 170 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=254 top=181 right=193 bottom=288 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 128 -- text size: 9 -- style flags: 0 -- line height: 10 -- part name: Record Channel ----- HyperTalk script ----- ----------------------- -- RECORDING CHANNEL -- ----------------------- On OPENFIELD -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpRecDate exit OPENFIELD end if End OPENFIELD ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 171 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=150 top=309 right=322 bottom=178 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New ----- HyperTalk script ----- ---------------------- -- NEW BUTTON STUFF -- ---------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpNew exit mouseUp end if --GLOBALS: global tempUL,tempPK,tempEdit,nuCard -- BASIC RECORDING OF LEVELS AND SET-UP: set cursor to 4 if the short name of bg btn id 153 = "Edit ON" then send mouseUp to bg btn id 153 put 1 into nuCard -- LETS OPENCARD HANDLER KNOW IT'S A NEW CARD! set lockscreen to true domenu "New Card" -- FILL IN THE CLASS FIELDS & SORT FIELD -- WITH APPROPRIATE DATA: repeat with i = 2 to 15 put "Ω " & the short name of field i into field i end repeat put " TITLE " & return into line 1 of field "Sort" put " STAR " & return into line 2 of field "Sort" put " DIRECTOR " & return into line 3 of field "Sort" put " RATING " & return into line 4 of field "Sort" put " MINUTES " & return into line 5 of field "Sort" put " YEAR " & return into line 6 of field "Sort" put " COLOR " & return into line 7 of field "Sort" put " OWN " & return into line 8 of field "Sort" put " RECORD DATE " & return into line 9 of field "Sort" -- GET BLINKING CURSOR IN FIRST FIELD: put 0 into nuCard unlock screen with visual dissolve fast type tab End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 172 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=13 top=287 right=300 bottom=64 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Print ----- HyperTalk script ----- ----------------------- -- PRINT LABEL STUFF -- ----------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpPrint exit mouseUp end if -- DECLARE GLOBALS: global labelMaster,window,printBackTo -- CHECK FOR NO DATA: if fld "label" is empty then answer "VCR tape label is empty--click Label Button." exit mouseUp end if -- CHECK FOR COLD FEET: answer "Sure you want to print this label?" with "No" or "Yes" if IT is "No" then exit mouseUp -- GO TO THE PRINT UTIL STACK & PRINT: set cursor to 4 put the name of this stack into printBackTo go to stack "VideoStak â—Š Don't Open 1" put labelmaster & return into card field "Label" domenu "Print Report..." -- THEN COME BACK: set cursor to 4 put empty into card field "Label" visual dissolve fast go to printBackTo End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 173 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=251 top=279 right=300 bottom=302 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Alarm ----- HyperTalk script ----- --------------------------------------- -- ALARM/CURRENT DATE BUTTON'S STUFF -- --------------------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpAlarm exit mouseUp end if -- LOOKS FOR TODAY'S DATE: set cursor to 4 lock screen find whole the short date in fld "Record Date" if the result is not empty then unlock screen put "Found nothing for today. Try sorting by record date." exit mouseUp end if unlock screen with visual dissolve fast select the foundChunk End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 175 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=89 top=278 right=301 bottom=226 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 7 -- style flags: 0 -- line height: 7 -- part name: Label -- part 176 (button) -- low flags: 00 -- high flags: 4000 -- rect: left=344 top=278 right=285 bottom=368 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: titleMaster ----- HyperTalk script ----- ----------------- -- TITLE STUFF -- ----------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexTabs exit mouseUp end if global hiButton,titleMaster,master,lineNo -- MOVER TITLES INTO THE CENTRAL INDEX: put titleMaster into master -- REAFFIRM THE HILITING OF INDEX TABS: put number of me into hiButton repeat with i = 30 to 33 set hilite of bkgnd btn i to i = number of me end repeat -- NOW UPDATE THE ACTUAL INDEX WINDOW: lock screen put line 1 to 12 of master into field "window" put 1 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 177 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=376 top=275 right=282 bottom=400 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: starMaster ----- HyperTalk script ----- --------------------------------- -- STAR STUFF LINE TITLE STUFF -- -- SEE TITLE INDEX TAB BUTTON -- --------------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexTabs exit mouseUp end if global hiButton,starMaster,master,lineNo put starMaster into master put number of me into hiButton repeat with i = 30 to 33 set hilite of bkgnd btn i to i = number of me end repeat lock screen put line 1 to 12 of master into field "window" put 1 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 178 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=408 top=272 right=279 bottom=439 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: directorMaster ----- HyperTalk script ----- ------------------------------------- -- DIRECTOR STUFF LINE TITLE STUFF -- -- SEE TITLE INDEX TAB BUTTON -- ------------------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexTabs exit mouseUp end if global hiButton,directorMaster,master,lineNo put directorMaster into master put number of me into hiButton repeat with i = 30 to 33 set hilite of bkgnd btn i to i = number of me end repeat lock screen put line 1 to 12 of master into field "window" put 1 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 179 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=447 top=269 right=276 bottom=477 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: classMaster ----- HyperTalk script ----- ---------------------------------- -- CLASS STUFF LINE TITLE STUFF -- -- SEE TITLE INDEX TAB BUTTON -- ---------------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexTabs exit mouseUp end if global hiButton,ClassMaster,master,lineNo put ClassMaster into master put number of me into hiButton repeat with i = 30 to 33 set hilite of bkgnd btn i to i = number of me end repeat lock screen put line 1 to 12 of master into field "window" put 1 into lineNo unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 180 (field) -- low flags: 81 -- high flags: 2004 -- rect: left=87 top=90 right=183 bottom=224 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 221 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Sort ----- HyperTalk script ----- On MOUSEUP -- BASICS global sortBy,selectAgain put the short name of me into FName put ((item 2 of the clickloc - item 2 of the rect of me) div the textheight of me) +1 into LNum if LNum > 9 then exit mouseUp put the number of chars in line LNum of me into NChars -- SELECT TEXT IN MAIN FIELD select char 2 to NChars of line LNum of field FName -- FILTER THE SELECTION & PUT INTO GLOBAL VAR put selection into sortBy put the selectedChunk into selectAgain End MOUSEUP -- part 181 (button) -- low flags: 80 -- high flags: 2002 -- rect: left=176 top=99 right=131 bottom=212 -- title width / last selected line: 0 -- icon id / first selected line: 20186 / 20186 -- text alignment: 1 -- font id: 223 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Sort ----- HyperTalk script ----- on mouseUp -- BASICS global sortby,selectAgain if sortBy is empty then answer "Click on an item to sort by." exit mouseUp end if select selectAgain set cursor to 4 delete char 1 of sortBy delete last char of sortby -- DETERMINE SORT ORDER AND THEN SORT if sortBy = "Minutes" or sortBy = "Year" then lock screen sort ascending numeric by field sortBy go card 3 put empty into sortby hide bg btn "Cancel" hide bkgnd btn "Sort" hide field "Sort" hide card pict unlock screen with visual dissolve fast exit mouseUp end if if sortBy = "Record Date" then lock screen sort ascending dateTime by field sortBy go card 3 put empty into sortby hide bg btn "Cancel" hide bkgnd btn "Sort" hide field "Sort" unlock screen with visual dissolve fast exit mouseUp end if lock screen sort ascending text by field sortBy go card 3 put empty into sortby hide bg btn "Cancel" hide bkgnd btn "Sort" hide field "Sort" unlock screen with visual dissolve fast end mouseUp -- part 183 (button) -- low flags: 80 -- high flags: 2002 -- rect: left=176 top=139 right=174 bottom=212 -- title width / last selected line: 0 -- icon id / first selected line: 99 / 99 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Cancel ----- HyperTalk script ----- on mouseUp lock screen hide the target hide bkgnd btn "Sort" hide field "Sort" unlock screen with visual dissolve fast end mouseUp -- part 190 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=208 top=309 right=322 bottom=233 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 204 -- text size: 9 -- style flags: 0 -- line height: 9 -- part name: Kill ----- HyperTalk script ----- ----------------------- -- KILL BUTTON STUFF -- ----------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpKill exit mouseUp end if -- A CHANCE TO BAIL OUT: answer "Sure you want to kill this card?" with "Kill" or "Cancel" if IT = "Cancel" then exit mouseUp -- GLOBALS & BASICS: global killCard,window,labelMaster -- BASIC RECORDING OF LEVELS AND SET-UP: set cursor to 4 put "1" into killCard put fld "Window" into window put fld "Label" into labelMaster -- CLEAR GET FIELDS TO RE-ADJUST INDICES: repeat with i = 16 to 18 set cursor to 4 if fld i = empty then next repeat lock screen send openField to fld i put empty into fld i unlock screen send closeField to fld i end repeat -- GRAB DATA FOR THE NEXT CARD: set cursor to 4 set lockscreen to true put fld "Window" into Window -- KILL-L-L-L IT! domenu "Delete Card" put empty into killCard -- NOW UPDATE THE CARD LANDED ON: put window into fld "Window" if labelmaster ≠ empty then put labelMaster into fld "Label" unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 191 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=90 top=279 right=300 bottom=225 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: LabelReal ----- HyperTalk script ----- ----------------------- -- CLEAR LABEL STUFF -- ----------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpLabelReal exit mouseUp end if -- EMPTY THE LABEL: global labelmaster lock screen put empty into fld "Label" put empty into labelmaster unlock screen with visual dissolve fast End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 192 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=114 top=248 right=263 bottom=201 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Credits ----- HyperTalk script ----- -------------------------- -- CREDITS BUTTON STUFF -- -------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpCredits exit mouseUp end if -- GO TO CREDITS CARD WITH LOCK: set cursor to 4 lock screen set lockmessages to true push card go to card "Credits" pop card -- GO TO CREDITS CARD WITHOUT LOCK: push card go to card "Credits" unlock screen with visual dissolve fast play drawer set cursor to 27902 -- SPEC TV CURSOR -- HOLD THERE UNTIL CLICK: repeat if the mouse is down then exit repeat end if end repeat -- NOW GO BACK: set cursor to 4 lock screen pop card unlock screen with visual dissolve fast play drawer set lockmessages to true End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 194 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=399 top=311 right=323 bottom=428 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: indexIt ----- HyperTalk script ----- -------------------------- -- INDEX THE STAK STUFF -- -------------------------- On MOUSEUP -- GET HELP RESOURCE, BUT NOT IF PEEKING: if the optionKey is down and the commandKey is not down then helper helpIndexStak exit mouseUp end if if the short name of this card = "Opening" or the short name of this card = "Credits" then exit mouseUp -- BIG DECISION: answer "Index the entire stack? (This takes a while!)" with "Index" or "Cancel" if IT = "Cancel" then exit mouseUp -- GET READY TO DO ENTIRE STACK: set cursor to 4 lock screen set lockmessages to true push card global titleMaster,starMaster,directorMaster,hiButton,lineNo,master global window -- START WITH A CLEAN SLATE: if lineNo = empty then put 1 into lineNo if hiButton = empty then put 30 into lineNo put empty into titleMaster put empty into starMaster put empty into directorMaster set lockmessages to true -- GO CARD-TO-CARD: repeat with i = 3 to the number of cards -- GO TO FIRST CARD AND GIVE MSG REPORT: go to card i put "CARD" && i && "OF" && the number of cards -- MAKE A TITLE ENTRY INTO AN INDEX ITEM: if field "Title" ≠ empty and the number of chars in field "Title" > 1 then put field "Title" into piTitle put "∂" before piTitle if last char of piTitle = return then put piTitle after titleMaster else put piTitle & return after titleMaster end if end if -- MAKE A STAR ENTRY INTO AN INDEX ITEM: if field "Star" ≠ empty and the number of chars in field "Star" > 1 then put field "Star" into varStar -- THERE MAY BE MORE THAN 1 STAR: repeat with x = 1 to the number of items in varStar if char 1 of item x of varStar = space then delete char 1 of item x of varStar put item x of varStar into piStar put "∂" before piStar if piStar is in starMaster then else if last char of piStar = return then put piStar after starMaster else put piStar & return after starMaster end if end if end repeat end if -- MAKE A DIRECTOR ENTRY INTO AN INDEX ITEM: if field "Director" ≠ empty and the number of chars in field "Director" > 1 then put field "Director" into varDirector -- THERE MAY BE MORE THAN 1 DIRECTOR: repeat with y = 1 to the number of items in varDirector if char 1 of item y of varDirector = space then delete char 1 of item y of varDirector put item y of varDirector into piDirector put "∂" before piDirector if piDirector is in directorMaster then else if last char of piDirector = return then put piDirector after directorMaster else put piDirector & return after directorMaster end if end if end repeat end if end repeat -- GO TO THE FIRST CARD AND UPDATE THE MASTER FIELDS: go to card "Opening" put "Storing the title index..." put sortLines(titleMaster) into card field "titleMaster" -- GET RID OF BLANK LINES FROM EXCESS RETURNS: repeat if line 1 of card field "TitleMaster" is empty then delete line 1 of card field "titleMaster" else exit repeat end if end repeat put card field "titleMaster" into titleMaster -- PUT THE NEW SORTED STARS INTO MASTER STAR FIELD: put "Storing the star index..." put sortLines(starMaster) into card field "starMaster" -- GET RID OF BLANK LINES FROM EXCESS RETURNS: repeat if line 1 of card field "starMaster" is empty then delete line 1 of card field "starMaster" else exit repeat end if end repeat put card field "starMaster" into starMaster -- PUT THE NEW SORTED STARS INTO MASTER STAR FIELD: put "Storing the director index..." put sortLines(directorMaster) into card field "directorMaster" -- GET RID OF BLANK LINES FROM EXCESS RETURNS: repeat if line 1 of card field "directorMaster" is empty then delete line 1 of card field "directorMaster" else exit repeat end if end repeat put card field "directorMaster" into directorMaster -- GO BACK & GIVE STATUS: pop card put "Just about done..." -- UPDATE THE WINDOW WITH THE APPROPRO MASTER: if hiButton = 30 then -- TITLE BUTTON! put titlemaster into master put line lineNo to (lineNo + 11) of master into window put window into field "Window" end if if hiButton = 31 then -- STAR BUTTON! put starMaster into master put line lineNo to (lineNo + 11) of Master into window put window into field "Window" end if if hiButton = 32 then -- DIRECTOR BUTTON! put directorMaster into master put line lineNo to (lineNo + 11) of Master into window put window into field "Window" end if -- DON'T NEED TO MESS WITH THE CLASSIFICATIONS -- AS THEY NEVER CHANGE OR GET DELETED! -- TIDY UP: send mouseUp to bg btn hiButton unlock screen with visual dissolve fast set lockmessages to false put "All done with the indexing!" End MOUSEUP ----------------------------------- -- UCMD'S LIKE 'HELPER' IN BKGND -- ----------------------------------- -- part 204 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=22 top=38 right=239 bottom=293 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: MaskScreen